program test1(output);
label 12,13,14;

const cos=11;
  cos2=12;
  n=6;

var
  delta , x1 , x2 : real;

procedure pisz;
  var
	i : integer;
  begin
    writeln('Writeln:');
    for i:=1 to n do
      begin
        write('petla ',i,' ');
      end;
  readln
  end;

function silnia(n:integer):integer;
  var
	silnia : integer;
  begin
    if n=0 then silnia:=1
           else silnia:=n*silnia(n-1);
  end;
  

begin
  pisz;
  writeln(silnia(4))
end.
